---
title: "Biodiversidad Marina Bahía Pardelas"
output: 
  flexdashboard::flex_dashboard:
    theme: lumen
    source: embed
    logo: https://www.proyectosub.org.ar/wp-content/uploads/2020/04/logoinatproyectosub.png
---

```{r setup, include=FALSE}
library(flexdashboard)
library(leaflet)
library(ggplot2)
library(vegan)
library(plotly)
library(mapr)
library(spocc)
library(rinat)


library(RColorBrewer)
palette(brewer.pal(8, "Set2"))


```

```{r dataread, message=FALSE, warning=FALSE, include=FALSE}


#Extract data from the project "biodiversidad-marina-bahia-pardelas"
#projecy_info <- pardelas_obs <- get_inat_obs_project("biodiversidad-marina-bahia-pardelas", type = "info", raw = FALSE)
#extract observations
#pardelas_obs <- get_inat_obs_project(projecy_info$id, type = "observations")

#create data frame with reduced info
#pardelas_obs_dataframe <- data.frame(name = pardelas_obs$taxon.name,longitude = as.numeric(pardelas_obs$longitude),latitude = as.numeric(pardelas_obs$latitude),user=pardelas_obs$user_login,date= as.Date(pardelas_obs$observed_on), taxonrank=pardelas_obs$taxon.rank,taxonid=pardelas_obs$taxon.id,taxon= pardelas_obs$iconic_taxon.name, stringsAsFactors = FALSE)


#Read data downloded from inat site 
pardelas_obs_web <- read.csv("observations.csv")

#we create a dataframe with the variable of interest.
pardelas_obs_dataframe <- data.frame(
name = pardelas_obs_web$scientific_name,
longitude = pardelas_obs_web$longitude,
latitude = pardelas_obs_web$latitude,
user=pardelas_obs_web$user_login,
date= as.Date(pardelas_obs_web$observed_on),
taxonid=pardelas_obs_web$id,
taxon= pardelas_obs_web$iconic_taxon_name,
kindom= pardelas_obs_web$taxon_kingdom_name,
phylum=pardelas_obs_web$taxon_phylum_name,
class=pardelas_obs_web$taxon_class_name,
order=pardelas_obs_web$taxon_order_name,
genus=pardelas_obs_web$taxon_genus_name,
stringsAsFactors = FALSE)

```


Column1{data-width=250}
-------

### Tabla Observaciones {data-width=245}
```{r taxalist}
knitr::kable(table(pardelas_obs_dataframe$name),col.names = c("Especies","Observaciones"))

```


Column2 {.tabset .tabset-fade}
-------

### Mapa
```{r map}
map_leaflet(pardelas_obs_dataframe,size=4)
```


### Phylum 
```{r donut}
##numbers of observations by phylum 
taxranks = as.data.frame(table(pardelas_obs_dataframe$phylum))
##Donut plot
p = taxranks %>% plot_ly(labels = ~Var1, values=~Freq) %>% 
  add_pie(hole=0.6) %>% 
  layout(title = ~paste0("Numero total de Taxa: ", length(unique(pardelas_obs_dataframe$taxonid)))) 

plotly::config(p,displayModeBar = F) 
```

Column3{data-width=150}
-------

###Números
```{r}
#spp 
nspp = length(unique(pardelas_obs_dataframe$name))
gauge(nspp, min=0, max=100,label="Species")

#algae
nPlants = length(unique(pardelas_obs_dataframe$taxon[pardelas_obs_dataframe$taxon=="Plantae"|pardelas_obs_dataframe$taxon=="Chromista"]))
gauge(nPlants, min=0, max=100,label="Algas")

#fish
nfish = length(unique(pardelas_obs_dataframe$name[pardelas_obs_dataframe$taxon=="Actinopterygii"]))
gauge(nfish, min=0, max=100,label="Peces")

#invertebrates
ninvertebrates = length(unique(pardelas_obs_dataframe$name[pardelas_obs_dataframe$taxon=="Animalia"|pardelas_obs_dataframe$taxon=="Mollusca"]))
gauge(ninvertebrates, min=0, max=100,label="Invertebrates")
```